﻿Public Class Modificar_Curso
    Dim cv As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each item As Object In Administrativo.arr.Values
            If (CType(item, Curso).p_nombre) = Administrativo.ListBox1.SelectedItem Then
                CType(item, Curso).p_nombre = TextBox1.Text
                CType(item, Curso).p_creditos = TextBox2.Text
                CType(item, Curso).p_tipo = ComboBox1.Text
                CType(item, Curso).p_lugar = TextBox6.Text
                CType(item, Curso).p_pagina = TextBox5.Text
                CType(item, Curso).p_correo = TextBox4.Text
                CType(item, Curso).p_info = RichTextBox1.Text
            End If
        Next
        MsgBox("Curso modificado con exito", MsgBoxStyle.OkOnly, "Aplicación Reconocimiento de Creditos")
        Close()
    End Sub

    Private Sub Modificar_Curso_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each item As Object In Administrativo.arr.Values
            If (CType(item, Curso).p_nombre) = Administrativo.ListBox1.SelectedItem Then
                TextBox1.Text = CType(item, Curso).p_nombre
                TextBox2.Text = CType(item, Curso).p_creditos
                ComboBox1.Text = CType(item, Curso).p_tipo
                TextBox6.Text = CType(item, Curso).p_lugar
                TextBox5.Text = CType(item, Curso).p_pagina
                TextBox4.Text = CType(item, Curso).p_correo
                RichTextBox1.Text = CType(item, Curso).p_info
                cv = Administrativo.arr.Count
            End If
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If MsgBox("Desea salir sin guardar los cambios", MsgBoxStyle.YesNo, "Aplicación Reconocimiento de Creditos") = MsgBoxResult.Yes Then
            Close()
        End If
    End Sub
End Class